object Extensiones: TExtensiones Tag = 1100 Left = 345 Top = 192 BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle Caption = 'Extensiones' ClientHeight = 326 ClientWidth = 310 Color = 14215660 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True OldCreateOrder = True Position = poScreenCenter OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ButtonAceptar: TPlaButton Tag = 2200 Left = 145 Top = 294 Width = 73 Height = 21 Anchors = [akRight, akBottom] Caption = '&Aceptar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = ButtonAceptarClick Default = True ModalResult = 1 end object ButtonCancel: TPlaButton Tag = 2400 Left = 226 Top = 294 Width = 73 Height = 21 Anchors = [akRight, akBottom] Caption = '&Cancelar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 TabStop = False Cancel = True ModalResult = 2 end object grpExtensiones: TPlaGroupBox Tag = 18300 Left = 14 Top = 7 Width = 285 Height = 275 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = 13977088 TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Caption = 'Extensiones analizables' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object Image10: TImage Left = 11 Top = 22 Width = 32 Height = 32 Picture.Data = {} Transparent = True end object lblDescripcion: TLabel Tag = 18400 Left = 58 Top = 19 Width = 215 Height = 39 AutoSize = False Caption = 'Los archivos con las siguientes extensiones ser�n analizados. ' WordWrap = True end object Label2: TLabel Left = 174 Top = 71 Width = 85 Height = 13 Caption = 'Nueva extensi�n:' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object EdExtension: TPlaEdit Left = 174 Top = 87 Width = 99 Height = 23 Cursor = crIBeam HelpContext = 220 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] MaxLength = 8 ParentFont = False TabOrder = 0 Transparent = False OnChange = EdExtensionChange end object BAnadir: TPlaButton Tag = 18600 Left = 174 Top = 118 Width = 99 Height = 23 HelpContext = 155 Caption = 'A&�adir' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 TabStop = False OnClick = BAnadirClick end object BEliminar: TPlaButton Tag = 18700 Left = 174 Top = 149 Width = 99 Height = 23 HelpContext = 152 Caption = '&Eliminar' Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 TabStop = False OnClick = BEliminarClick end object ButtonLimpiar: TPlaButton Tag = 18800 Left = 174 Top = 180 Width = 99 Height = 23 HelpContext = 153 Caption = '&Limpiar Lista' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 3 TabStop = False OnClick = ButtonLimpiarClick end object BDefault: TPlaButton Tag = 2300 Left = 174 Top = 211 Width = 99 Height = 23 HelpContext = 151 Caption = '&Restaurar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 4 TabStop = False OnClick = BDefaultClick end object CBSinExtension: TPlaCheckBox Tag = 60500 Left = 58 Top = 247 Width = 168 Height = 16 HelpContext = 154 Caption = 'Analizar archivos sin extensi�n' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 5 TabStop = False ParentColor = False end object LBExtensiones: TPlaListBox Left = 58 Top = 71 Width = 95 Height = 165 Items.Strings = ( '386' 'APP' 'BAT' 'BIN' 'BOO' 'CMD' 'DLL' 'DOC' 'DOT' 'DRV' 'FON' 'MDB' 'OVL' 'OVR' 'PRG' 'SYS' 'XLS' ' ') TabOrder = 6 OnClick = LBExtensionesClick end end end